home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {B2A344B5-75C0-4208-BC0A-9E0959FE4234}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  982b  |  21 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim mynum
  5. 'Called when the script is executed
  6. Sub Object_OnScriptEnter
  7.     mynum=right(object.Name,len(object.Name)-12)'12
  8. End Sub
  9.  
  10. Sub Object_OnStateChange(state)
  11.     If state = "Command executed" Then
  12.         desktopx.ScriptObject("kbarpin").renamesection(mynum)
  13.     End If
  14. End Sub
  15.  
  16. 'Called when the script is terminated
  17. Sub Object_OnScriptExit
  18.  
  19. End Sub
  20. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>370</EditorLeft><EditorTop>248</EditorTop><EditorRight>1089</EditorRight><EditorBottom>678</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  21.